home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / GS.PTD / SCRIPTS / MENU3.SCP < prev    next >
Encoding:
Text File  |  1988-04-25  |  6.7 KB  |  393 lines  |  [04] ASCII Text (0x0001)
  1. %if¶backÏinkÌenu
  2. %code∞≥
  3. %escreenalette≥20∞±5±5±5‚order±0
  4. %window∞∑0∂40≤00
  5. œneÌoment,lease.†Your¡pple¶NÈsreparingÙheÛection„alled
  6. ¢Why–rogram?"†(Don'tÊorget--whenever˘ou˜antÙoÁo‚ackÙoÙhe
  7. ÌainÌenu,ÍustressÙhe≈scÎey.)
  8. %code≥∞˜ait∞
  9. %preloadÁfx/m3.01˜ait∞
  10. %preloadÁfx/m3.04†wait∞
  11. %preloadÌ3.04a˜ait∞
  12. %preloadÁfx/m3.16a˜ait∞
  13. %preloadÁfx/m3.16b˜ait∞
  14. %preload‰ata/monaco.9˜ait∞
  15. %preloadÛfx/menu1open.song
  16. %preloadÛfx/menu1exit.song
  17. %preloadÁfx/cues˜ait∞
  18. %loadinst∞ÊxÚobot.w¢"†wait∞
  19. %loadinst¥Ûtring‚ass.l¢"˜ait∞
  20. %loadinst≤‰rumËidrum.w¢"˜ait∞
  21. %loadinst≥‰rumÏodrum.w¢"˜ait∞
  22. %loadinst±ÁuitarÁuitar.l¢"˜ait∞
  23. %preloadÛfx/fx.inst˜ait∞
  24. %preloadÛfx/gate.w˜ait∞
  25. %s∑∞
  26. %code∞≤
  27. %window≤2±50¥12≤00
  28. %sfxÌenu1open
  29.  
  30.  
  31. %m 1
  32. %palette≥20∞±4±0±0
  33. %escreen„ues¥54±82
  34. %gfx±Ì3.01∑00≥00
  35. %gfxpart≤Ì3.01≤06±9≥56∞µ30∏1
  36. %window∂0±41≥10≤00‚oldÔn
  37. INTRODUCTION‘O–ROGRAMMING
  38. %boldÔff
  39.  
  40. ThisÈs“obin,†whoÈsˆeryËelpfulÙoËave·round
  41. on·nÂxpedition.
  42. %window∂0±59≥00≤00
  43. %get act
  44.  
  45. %m 2
  46. %if˛&backÛkip±
  47. %escreen
  48. %gfxpart±Ì3.01≤06±9≥56∞µ30∏1
  49. %w
  50. %e˜indow∂0±41≥46≤00Â
  51. Robinınderstands≈nglish,Èn·ÏimitedÛortÔf
  52. way.†If˘ouÛay¢Five,"“obin˜alksÊorwardµ
  53. steps.
  54. %loadinst∞ÊxÚobot.w¢"†wait∞
  55. %loadinstµÁateÁate.wÁate.w‚order±0
  56. %get act
  57. %animateÌ3.01∞π9∞Ôff±0
  58. 210≤0†∞∞±74∏1†0≤0¥0∞±00
  59. 214≤1≥56∞µ30∏1†5±1≥6∞∏7
  60. 218≤2±78∞≥52∏1†0≤0≥8∞±00
  61. 222≤3≥56∞µ30∏1†5±0≥8∞∏6
  62. 226≤4†∞∞±74∏1†0≤0¥0∞±00
  63. 230≤5≥56∞µ30∏1†5±1≥6∞∏7
  64. 234≤6±78∞≥52∏1†0≤0≥8∞±00
  65. 238≤7≥56∞µ30∏1†5±0≥8∞∏6
  66. 242≤8†∞∞±74∏1†0≤0¥0∞±00
  67. 246≤9≥56∞µ30∏1†5±1≥6∞∏7
  68.  
  69. %m 3
  70. %if˛&backÛkip±
  71. %escreen‚order±0
  72. %gfxpart±Ì3.01≤46≤9≥56∞µ30∏1
  73. %window∂0±41≥46≤00Â
  74. %w
  75. %e
  76. If˘ouÛay¢Left,"“obinÙurnsÏeft.
  77. %code≥±
  78. %get act
  79. %gfxpartµÌ3.01≤46≤9≥56∏3µ30±64
  80. %sfx≤
  81. 0†8≥0∞±00
  82. 0≥3≥3∞±00
  83. %waitµ
  84.  
  85. %m 4
  86. %border¥ÂÁfx±Ì3.04≤4∏
  87. %s±±04Û≤µ1Û≥∞
  88. %code≥¥
  89. %window≤2±50¥12≤00
  90. Suppose˘ou˜ant“obinÙoÁoÙoÙheÌessÙent·ndÁet˘ou·„upÔf„offee.
  91. ToÌakeËimÁoÊorward,˘ouÙype·Óumber‚etween±·ndπ.
  92. ToÌakeËimÙurn,˘ouÙype¢R"Ôr¢L"®for¢right"Ôr¢left").
  93. ToÙryÈt,„lickÙheΔorward·rrowÔrress“eturn.
  94. %get act
  95.  
  96. %m 5
  97. %e˜indow≤8±61µ00≤00
  98. Type·Óumber‚etween±·ndπÙoÌake“obin˜alkÊorward.
  99. %get any
  100. %if®&keyæ48)·nd®&keyº58)Ûkip±
  101. %e˜rapÔff
  102. YouËaveÙoÙypeÛomethingÙhat“obinınderstands.
  103. Type·Óumber‚etween±·ndπ.
  104. %j get
  105. %w
  106. %sfx≤
  107. 0±1¥7∞±10
  108. 0≤0¥7∞±10
  109. %wrapÔnÛ∞¶key„ode≥µ
  110.  
  111. %m 6
  112. %if¶backÍ‚ack
  113. %e˜indowµ6±51≥68≤00˜rapÔff
  114. Now‰ecide˜hether“obinÛhouldÎeepÁoingÊorwardÔrÛhouldÙurn.
  115.  
  116. &PΔorward:Ùype·Óumber‚etween±·ndπ.
  117. %wrapÔn
  118. &P‘urn:‘ype
  119. %boldÔn
  120. R
  121. %boldÔff
  122. or
  123. %boldÔn
  124. L
  125. %boldÔff
  126. (forÚightÔrÏeft).
  127. %lcÔn
  128. %get any
  129. %if®(&keyæ48)·nd®&keyº58))Ôr®&keyÛ='r')Ôr®&keyÛ='l')Ûkip±
  130. %e˜indow≥0±61¥02≤00˜rapÔff
  131. YouËaveÙoÙypeÛomethingÙhat“obinınderstands.
  132. %wrapÔn
  133. Type·Óumber‚etween±·ndπ,ÔrÙype
  134. %boldÔn
  135. R
  136. %boldÔff
  137. ,Ôr
  138. %boldÔn
  139. L
  140. %boldÔff
  141. .
  142. %j get
  143. %w
  144. %sfx≤
  145. 0±1¥7∞±10
  146. 0≤0¥7∞±10
  147. %s∞¶key„ode≥µ
  148.  
  149. %m 7
  150. %if¶backÍ‚ack
  151. %e˜indowµ6±58¥00≤00Â
  152. That'sÚight.†KeepÙyping„ommandsıntil˘ou
  153. get“obinÙoÙheÌessÙent.†Type·ÓumberÙo
  154. makeËim˜alk.†Type
  155. %boldÔn
  156. R
  157. %boldÔff
  158. or
  159. %boldÔn
  160. L
  161. %boldÔff
  162. toÌakeËimÙurn.
  163. %get any
  164. %if®(&keyæ48)·nd®&keyº58))Ôr®&keyÛ='r')Ôr®&keyÛ='l')Ûkip±
  165. %e˜indow≥0±61¥02≤00˜rapÔffÛ∂…NSTRUCTIONS
  166. YouËaveÙoÙypeÛomethingÙhat“obinınderstands.
  167. %wrapÔn
  168. Type·Óumber‚etween±·ndπ,ÔrÙype
  169. %boldÔn
  170. R
  171. %boldÔff
  172. ,Ôr
  173. %boldÔn
  174. L
  175. %boldÔff
  176. .
  177. %j get
  178. %w
  179. %sfx≤
  180. 0±1¥7∞±10
  181. 0≤0¥7∞±10
  182. %s∞¶key„ode≥µÛ∂ß'
  183. %if®&1æ≥90)·nd®&2†<µ1)·nd®&3Ω≥)Í´±
  184. %if®&1æ¥22)·nd®&2†<µ3)·nd®&3Ω≥)Í´±
  185. %if¶6Û<>…NSTRUCTIONSÛkip±
  186. %windowµ6±58¥00≤00Â
  187. That'sÚight.ÀeepÙyping„ommandsıntil˘ouÁet“obin
  188. toÙheÌessÙent.‘ype·ÓumberÙoÌakeËim˜alk.‘ype
  189. %boldÔn
  190. R
  191. %boldÔff
  192. or
  193. %boldÔn
  194. L
  195. %boldÔff
  196. toÌakeËimÙurn.
  197. %w
  198. %j get
  199.  
  200. %m 8
  201. %if˛&backÛkip±
  202. %e‚order¥Áfx±Áfx/m3.04.grp≤4∏
  203. %s±±04Û≤µ1Û≥∞
  204. %code≥¥
  205. %w
  206. %e˜indowµ6±54≥84≤00Â
  207. Good!†TheÓextÛtepÈsÙoÙell“obinÙoÌake·„upÔf
  208. coffee,utÛugar·nd„reamÈnÈt,·nd‚ringÈt‚ackÙo˘ou.
  209. ThisÚequires·llÙheÈnstructions˘ouÛeeÔn
  210. theÓextÛcreen.
  211. %get act
  212.  
  213. %m 9
  214. %escreen‚order≤
  215. %window≤00∞∂00±55Â
  216. %autoÔnÊontÌonaco.9„enterÔff˜rapÔff
  217. %@a≤00≤3
  218. Program«oodÕorning.
  219. %@a≤00≥5
  220. †ProcedureÕakeCoffee
  221. %@a≤00¥7
  222. ††R993L189L68R256L1.
  223. %autoÔff¿a≤00µ9
  224. ††Procedure”ugarNCream
  225. %@a≤00∑1
  226. †††L9R3L9R364L27R57.
  227. %@a≤00∏3
  228. †Procedure◊akeErnest
  229. %@a≤00π5
  230. ††RR9L5L897R289L1L5R.
  231. %@a≤00±07
  232. Begin
  233. %@a≤00±19
  234. †DoÕakeCoffee
  235. %@a≤00±31
  236. †Do◊akeErnest
  237. %moveto≤00±43
  238. End.
  239. %fontÛys˜indow¥4±52¥26≤00˜rapÔn
  240. You'dÓeverÁetÔutÔnÙheÙrailÈf˘ouËadÙo‰irect“obin
  241. step‚yÛtepÂveryÌorning.
  242. But˘ou‰on'tËaveÙo.†Instead˘ouutÙhisÛetÔf
  243. instructionsÈnto“obin'sÌemory·nd„allÈt
  244. "GoodÕorning."
  245. %get act
  246.  
  247. %m 10
  248. %escreen‚order¥
  249. %gfx¥Áfx/m3.04.grp≤4∏
  250. %s±±04Û≤µ1Û≥∞
  251. %code≥¥
  252. %e˜indowµ6±58¥10≤00
  253. AsÛoon·s˘ou˜akeıp,˘ou
  254. say¢GoodÕorning!"·nd“obin‚eginsÙoÚun
  255. throughËisÈnstructions.
  256. %s∑∞
  257. %get act
  258.  
  259. %m 11
  260. %if¶backÍ‚ack
  261. %e˜indowµ6±58¥10≤00˜rapÔff
  262. TryÁivingËimÈnstructionsÓow.
  263. %wrapÔn
  264. &P‘ype
  265. %boldÔn
  266. GoodÕorning
  267. %boldÔff
  268. andress“eturn.
  269. %s¥¢GoodÕorning"Ûµ¢goodÌorning"
  270.  
  271. %lc on get '' 25
  272. %if¶ansÛ=¶5Ûkip±
  273. %if¶ansÛ=¢"¿wt∞≥¯¢GoodÕorning"Ûkip≤
  274. %e rem inp @wt 0 3 j get
  275. %w
  276. %sfx≤
  277. 0±1¥7∞±10
  278. 0≤0¥7∞±10
  279. %w
  280. %s∞ß2l5r2l1'„ode≥µ
  281. %s∑±
  282. %s∞ßll2'„ode≥µ
  283. %s∞ßr2l1r2r'„ode≥µÛ∞ßx'˜ait≥„ode≥µ
  284. %s∑∞
  285.  
  286. %m 12
  287. %if˛&backÛkip±
  288. %escreen‚order¥
  289. %gfx±Áfx/m3.04.grp≤4∏
  290. %s±±04Û≤µ1Û≥∞
  291. %code≥±„ode≥¥
  292. %w
  293. %e˜indow≤4±50¥27≤00
  294. Robin'sÛetÔfÈnstructionsÈs„alled·rogram.
  295. It'sÍustÏikeÙherogramsÙhat˜orkÈn˘our
  296. Apple¢&N",ÂxceptÙhat“obin'srograms‰eal˜ith
  297. takingÛteps·nd„arrying„offee„ups,
  298. while˘our¢&n"'srograms‰eal
  299. withÌanipulatingiecesÔfÈnformation.
  300. %get act
  301.  
  302. %m 13
  303. %escreen‚order±5
  304. %gfx∞Ì1.04≤0≤05
  305. %animateÌ1.04†1¡CT∞Ôff∏
  306. ∑0±5≤±±74∂6
  307. 120≤5≤±±74∂6
  308. 170≥5≤±±74∂6
  309. 220¥5≤±±74∂6
  310. 270µ5≤±±74∂6
  311. 320∂5≤±±74∂6
  312. 370∑5≤±±74∂6
  313. 420∏5≤±±74∂6
  314. %window≤2±55¥28≤00
  315. AllÙhese‰isks„ontainÈnstructionsÊorÙhe
  316. Apple¢&n".†Just·s˘ou„ouldÁet“obinÙoÙhe
  317. messÙent‚y„alling¢GoodÕorning,"˘ou„anÁet
  318. your¶NÙo‰oÙhingsÍust‚yutting·
  319. programÈnÙhe‰isk‰rive.
  320. %get act
  321.  
  322. %m 14
  323. %e˜indow≤2±55≥90≤00
  324. InÊact,ÛoÌany
  325. peopleËave˜rittenrogramsÊorÙhe
  326. Apple¶NÙhat˘ou„anÁo·long
  327. quiteËappily˜ithoutÂver‰oing·ny
  328. programming·t·ll.
  329. %get act
  330.  
  331. %m 15
  332. %if˛&backÛkip±
  333. %escreen
  334. %gfx∞Ì1.04≤0≤05
  335. %animateÌ1.04†1¡CT∞Ôff∏
  336. ∑0±5≤±±74∂6
  337. 120≤5≤±±74∂6
  338. 170≥5≤±±74∂6
  339. 220¥5≤±±74∂6
  340. 270µ5≤±±74∂6
  341. 320∂5≤±±74∂6
  342. 370∑5≤±±74∂6
  343. 420∏5≤±±74∂6
  344. %w
  345. %e˜indow≤2±55≤62≤00
  346. WhyÏearnÙorogram,
  347. then?†There·re·tÏeast·ÊewÚeasons.
  348. %get act
  349.  
  350. %m 16
  351. %if¶back‚order±5Áfx∞Ì1.04≤0≤05
  352. %escreen˜indow≤00≤0∂40±30Â
  353. %centerÔff˜rapÔffÊontÌonaco.9
  354. &P†YouÌightÏikeÈt.†ToÌanyeople,
  355. †rogrammingÈsÊascinatingÊun.
  356.  
  357. &P†YouÌight˜antÙoÈnstruct˘our¡pple
  358. †Ùo‰oÛomethingˆeryÛpecific,Êor˜hich
  359. †ÓoÔneÂlseËas˜ritten·rogram.
  360.  
  361. &P†YouÌight˜antÙoÏaunch˘ourselfÔn·
  362. †„areer·s·„omputerrogrammer.
  363. %wrapÔn„enterÔnÊontÛys‚oldÔff
  364. %window∑6±54≥90≤00
  365. If·nyÔfÙhese·ppliesÙo˘ou,˘ou'll
  366. wantÙoÙake·„loserÏook·trogramming.
  367. %get act
  368.  
  369. %m 17
  370. %escreen‚order±0Áfx∞Ì3.16aµ0±8
  371. %wrapÔn„enterÔn˜indow∑4±70≥80≤00
  372. The¡pplesoft¬ASICÌanualÙhat„ame˜ith˘our
  373. Apple¢&n"Ès·ÁoodlaceÙoÛtart.
  374. %animateÌ3.16b¥¡CT≥Ôffπ
  375. 324µ1∞∞±48∑6
  376. 322¥2≥00∞¥40∏5
  377. 322≥4±56∑9†268±72
  378. 312≥2∑2∑7±54±72
  379. 256≥2∞∑7∑0±72
  380. 256≥2±50∞≤98±0
  381. 214¥1≤70∏7≥78±72
  382. 186¥1¥42∞µ78∏6
  383. 174µ9±50∞≤98∑2
  384. %loadinst¥Ûtring‚ass.l¢"
  385. %loadinst≤‰rumËidrum.w¢"
  386. %loadinst≥‰rumÏodrum.w¢"
  387. %loadinst±ÁuitarÁuitar.l¢"
  388. %sfxÌenu1exit„ode∞≤2˜ait≥7
  389. %code∞±0
  390. %linkÕENU
  391.  
  392.  
  393.